home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / Meso.cpt / Mesopotamia 0.9 / card_18043.txt < prev    next >
Text File  |  1987-12-05  |  2KB  |  91 lines
  1. -- card: 18043 from stack: in.9
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 16394
  5. -- name: ham5
  6.  
  7.  
  8. -- part 3 (field)
  9. -- low flags: 80
  10. -- high flags: 0004
  11. -- rect: left=169 top=214 right=243 bottom=238
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 9
  17. -- style flags: 0
  18. -- line height: 12
  19. -- part name: silly
  20.  
  21.  
  22. -- part 6 (button)
  23. -- low flags: 00
  24. -- high flags: 0000
  25. -- rect: left=344 top=288 right=324 bottom=379
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: right dogear
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   -- this script handles a diagonally divided button, intended to be
  37.   --  a right dogear
  38.   put (item 1 of the clickLoc) - (item 1 of the rect of the target) into x
  39.   put (item 4 of the rect of the target) - (item 2 of the clickLoc) into y
  40.   if (x < y) then              -- click is in upper left
  41.     visual effect wipe left
  42.     play "click"
  43.     go to next card
  44.   else
  45.     visual effect wipe right
  46.     play "click"
  47.     go previous
  48.   end if
  49. end mouseUp
  50.  
  51.  
  52.  
  53. -- part 7 (button)
  54. -- low flags: 00
  55. -- high flags: 0000
  56. -- rect: left=462 top=306 right=340 bottom=508
  57. -- title width / last selected line: 0
  58. -- icon id / first selected line: 30557 / 30557
  59. -- text alignment: 1
  60. -- font id: 0
  61. -- text size: 12
  62. -- style flags: 0
  63. -- line height: 16
  64. -- part name: Go first
  65. ----- HyperTalk script -----
  66. on mouseUp
  67.   set lockscreen to true
  68.   go card "tline"
  69.   hide background field "one"
  70.   hide background field "two"
  71.   hide background field "three"
  72.   hide background field "four"
  73.   set lockscreen to false
  74.   visual effect dissolve
  75.  
  76.   go to card "tline"
  77. end mouseUp
  78.  
  79.  
  80.  
  81.  
  82. -- part contents for card part 3
  83. ----- text -----
  84. No, the other dogear!
  85.  
  86. -- part contents for background part 1
  87. ----- text -----
  88.  
  89.  
  90.  
  91. If a physician performed a major operation with a bronze lancet and has caused the man's death, they shall cut off his hand.